home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 242
/
242.d81
/
rolling waves
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
239b
|
14 lines
30200 s=54272:forl=54272to54296:pokel,0:next:pokes+24,15
30210 pokes+6,240:pokes+4,129:pokes+1,34:pokes,75
30220 fora=1to15:pokes+24,a
30222 tq=ti
30224 ifti<tq+4then30224
30226 next
30230 forb=15to1step-1:pokes+24,b
30232 tq=ti
30234 ifti<tq+16then30234
30236 next
30240 tq=ti
30242 ifti<tq+300then30242
30250 goto30210